﻿Public Class frmTransparente

    '---------------------------------------> Clase creada por Diego Barillas <----------------------------------------

    Private Sub frmTransparente_MouseClick(sender As Object, e As MouseEventArgs) Handles MyBase.MouseClick


    End Sub


    Private Sub frmTransparente_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        Me.Location = Screen.PrimaryScreen.WorkingArea.Location
        Me.Size = Screen.PrimaryScreen.WorkingArea.Size
        frmSecundario.Show()
        Me.AddOwnedForm(frmSecundario)

    End Sub

    Shared Sub AgregarContenido(frm As Control)
        frmSecundario.paneSecundario.Controls.Add(frm)
    End Sub

End Class